﻿Public Class KanCubuguDuzeltme
    Inherits Process

    'Public Overrides Sub FormRestart(Optional ByVal HardReset As Boolean = True)
    '    If HardReset Then
    '        Clear("FaturaNoKey")
    '        Focus("FaturaNoKey")
    '    End If
    '    Clear("  kimlik , sno , ad , soyad , dosyano , gyskimlik , hturu , kararno , onay , sdrm , kaykul , islemtar , sube ")
    '    Clear(" murtar , rectar , fatura , odememe , gysadi , gysyakin , fisno , odemik , odetar , rapordrm , kurulno, odedrm , adet , faturamik ")

    '    Help = "Fatura numarasını girin."
    '    Buttons.Show("")
    'End Sub

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Kan Çubuğu Düzeltme"
                AddText("rowid", "Kayıt No", "width=7;nl", "", "")
                StartBody()
                ' AddField("Tarih[name=islemtar;label=İşlem Tarihi]")
                'AddCombo("EczaneNo", "Ecz.Kodu", "q@select distinct(eczkod) as kod,(eczkod + '- ' + eczadi) as ad from  [SSDMERKEZ].[dbo].[eczgenel] order by eczkod", "width=23", "LE01")
                'AddCombo("kaykul", "Operatör", "q@select kaykul as kod,adi as ad from users where kaykul in (select distinct kaykul from pgenel) order by adi", "nl;width=15")
            
                AddField("FaturaNo", "nl")
                'AddText("receteno", "ReçeteNo", "", "", "")
                AddField("sube")
                AddField("kimlik")
                AddField("sno", "nl")

                AddField("Ad")
                AddField("Soyad")

                AddText("dosyano", "DosyaNo", "width=7;nl", "", "")
                AddText("fisno", "Fiş.No.", "", "", "")

                AddCombo("gysyakin", "Yak.Durum", "K,Kendisi|E,Eşi|C,Çocuğu", "width=10", "K")
                AddText("gyskimlik", "Yak.Kimlik", "nl", "", "")
                AddText("gysadi", "Yak.Adı", "", "", "")

                AddField("hturu")
                AddField("kararno", "nl")
                AddCombo("Onay", "onay", "H,Hayır|E,Evet", "width=10", "E")

                AddCombo("sdurum", "Aktif/Pasif", "A,A|P,P", "width=5", "A")

                AddDate("murtar", "Müracaat Tar.", "width=8;nl", "0", "")
                AddDate("rectar", "Reçete Tar.", "width=8", "0", "")
                AddDate("odetar", "Ödeme Tar.", "width=8", "0", "")
                AddDate("islemtar", "İşlem Tar.", "width=8;nl", "0", "")

                ' [kimlik],[sno],[adi],[soyadi],[dosyano],[gyskimlik],[hturu],[kararno],[onay],[sdrm],[kaykul],[islemtar],[sube]
                ' ,[murtar],[rectar],[fatura],[odememe],[gysadi],[gysyakin],[fisno],[odemik],[odetar],[rapordrm],[kurulno,[odedrm],[adet],[faturamik]

                AddText("odedrm", "Öde.drm.", "width=7", "", "")
                AddText("odemik", "Öde. Mik.", "width=7", "", "")
                AddText("faturamik", "Fatura Mik.", "width=7;nl", "", "")

                AddText("kurulno", "Kurul No.", "", "", "")
                AddText("odememe", "Ödememe Sebebi", "width=10", "", "")
                AddText("rapordrm", "Rapor Durum", "width=10;nl", "", "")
                AddText("Adet", "Çubuk Adedi", "nl", "", "")
                '  AddText("ssdtopfiat", "SSD Top.Fiyat", "width=7;nl", "", "")

                'AddList()
                'List.AddColumns("kimlik(KimlikNo;l;100),ydurum(Yakını durum;l;80),yadi(Yakını Ad;l;200),MuayneTar(Muayene Tarihi;d;100),Faturano(FaturaNo;r;100)," & _
                '             " Eczkod(Eczane Kodu;l;80),Eczadi(Eczane Adı;l;195) ")


            Case EventType.Other
                'If e.Name = "EczaneNo.Change" Then
                '    Dim TmpEczkod As String = Input("EczaneNo")
                '    Dim Rs2 As Recordset = OpenSQL("SELECT  adi,soyadi,eczadi,adr,sozbittar FROM [SSDMERKEZ].[dbo].[eczgenel] " & _
                '                                   " where eczkod = :~eczkod", TmpEczkod)
                '    If Not (Rs2.EOF) Then
                '        '   Input("EczSahibi") = Rs2("adi") & " " & Rs2("soyadi")
                '        SetValues("EczSahibi,sozbittar", Rs2("adi") & " " & Rs2("soyadi"), Rs2("sozbittar"))
                '        '  Input("sozbittar") = Rs2("sozbittar")
                '    End If

                '    Enabled("EczSahibi") = False
                '    Enabled("sozbittar") = False

                'End If

            Case EventType.ValidateForm

                Dim Rs As Recordset
                If Check("rowid", IsEmpty("rowid"), "Kayıt Sıra numarasını girmek zorundasınız.") Then Exit Sub
                Rs = Remote.OpenSQL("SELECT  * FROM [SSDMERKEZ].[dbo].[skancubuk] where rowid=:~rowid", Input("rowid"))

                ' [kimlik],[sno],[adi],[soyadi],[dosyano],[hturu],[kararno],[onay],[sdrm],[kaykul],[islemtar],[sube]
                ' ,[murtar],[rectar],[fatura],[odememe],[gyskimlik],[gysadi],[gysyakin],[fisno],[odemik],[odetar],[rapordrm],[kurulno,[odedrm],[adet],[faturamik]

                If Check("rowid", Rs.EOF, "Girilen Numaraya ait bir kayıt bulunamadı.") Then Exit Sub

                SetValues("kimlik,sno,ad,soyad,dosyano,hturu,kararno", Rs("kimlik"), Rs("sno"), Rs("adi"), Rs("soyadi"), Rs("dosyano"), Rs("hturu"), Trim(Rs("kararno")))
                SetValues("onay,sdurum,islemtar,sube,murtar,rectar", Rs("onay"), Rs("sdrm"), Rs("islemtar"), Rs("sube"), Rs("murtar"), Rs("rectar"))
                SetValues("faturano,odememe,gyskimlik,gysadi,gysyakin", Rs("fatura"), Rs("odememe"), Rs("gyskimlik"), Rs("gysadi"), Rs("gysyakin"))
                SetValues("fisno,odemik,odetar,rapordrm,kurulno", Rs("fisno"), Rs("odemik"), Rs("odetar"), Rs("rapordrm"), Rs("kurulno"))
                SetValues("odedrm,adet,faturamik", Rs("odedrm"), Rs("adet"), Rs("faturamik"))

				Buttons.Show("Save.Delete.Reset")

                e.Result = True

                'EnterDataStage()
            Case EventType.Save
                Dim Rs As Recordset
                If Input("sdurum") = "P" And (Trim(Input("hturu")) = "" Or Trim(Input("kararno")) = "") Then
                    Warning("Pasif seçili iken Hesap türü veya Karar No boş bırakılamaz ! ")
                    Exit Sub
                End If

                Rs = Remote.OpenSQL("select * from ssdmerkez.dbo.skancubuk where rowid = :~rowid", Input("rowid"))

                Rs.SetValues("kimlik,sno,adi,soyadi,dosyano,hturu,kararno", Input("kimlik"), Input("sno"), Input("ad"), Input("soyad"), Input("dosyano"), Input("hturu"), If(Trim(Input("kararno")) = "", "", Input("kararno")))
                Rs.SetValues("onay,sdrm,islemtar,sube,murtar,rectar", Input("onay"), Input("sdurum"), Input("islemtar"), Input("sube"), Input("murtar"), Input("rectar"))
                Rs.SetValues("fatura,odememe,gyskimlik,gysadi,gysyakin", Input("faturano"), Input("odememe"), Input("gyskimlik"), Input("gysadi"), Input("gysyakin"))
                Rs.SetValues("fisno,odemik,odetar,rapordrm,kurulno", Input("fisno"), Input("odemik"), Input("odetar"), Input("rapordrm"), If(Trim(Input("kurulno")) = "", 0, Input("kurulno")))
                Rs.SetValues("odedrm,adet,faturamik", Input("odedrm"), Input("adet"), Input("faturamik"))

                Rs.Save()
                Info("Düzeltme işlemi başarıyla tamamlanmıştır.")
                ' FormRestart()

            Case EventType.Delete
                If Not Confirm("Bu seçili kaydı tamamen silmek istediğinize emin misiniz?") Then Exit Sub
                Saglik.KanCubugu.Sil(Remote, Input("rowid"))
                Info("Silme işlemi başarıyla tamamlanmıştır.")
				ResetForm()
        End Select
    End Sub
End Class
